program testProject2Program;

class testProject2Class

BEGIN

VAR 	XRay : ARRAY[0 .. 4] OF integer;
	YRay : ARRAY[8 .. 12] OF integer;
	aa : integer;
	bb : integer;
	cc : integer;
	dd : integer;
	ee : integer;
	ff : integer;
	gg : integer;

FUNCTION testProject2Function;
VAR	dd : integer;
BEGIN

	dd := 9;

	if aa = 0 THEN
	BEGIN
		aa := dd + 1;
		if bb = 0 THEN
			bb := 2
		else
			bb := 3
	END

	ELSE
	BEGIN
		bb := 0;

		WHILE cc < 7 DO
			cc := cc + 1
	END;

	dd := dd + 2;
        bb := bb + 5;
	aa := 2;
	aa := 3



END

END
.

